home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / bbs / OnlinePoint19.lha / onlinepoint / AHT-DH-OnlinePoint next >
Text File  |  1996-12-22  |  70KB  |  2 lines
  1. /* Optimized with RexxOpt 1.8 */
  2. port1=ARG(1);port=left(port1,1);if ~show('L','rexxsupport.library') then;do;if ~addlib('rexxsupport.library',0,-30,0) then;do;say 'rexxsupport.library konnte nicht geöffnet werden!';say 'Bitte kopieren Sie die Library von ihren Workbench-';say 'disketten nach LIBS:.';exit 10;end;end;if ~show('l','cl_rexx.library') then;do;if ~addlib('cl_rexx.library',0,-30,0) then exit;end;confanz=CL_GETTEXT('Connectline:Prefs/AHT-DH-OnlinePoint.para',conf);popri=conf.4;maacc=conf.6;nummer=conf.8;if ~CLONL_ClearScreen() then call bye;user=CLGET_PortUsername(port);if user='gast' then;do;say d2c(27)'[11;13H'd2c(27)'[41;37m  Bitte erst einen Userantrag machen und dann das PointTool nochmal aufrufem!  'd2c(27)'[0;37m';call bye2;end;real=clget_userrealname(user);terminal=CLGET_PortTerminal(port);system=CLGET_OwnSystemAddress();box=CLGET_OwnSystemName();zeilen=CLGET_USERLINES(user);IF CLIS_UserPoint(user) then;do;point=CLGET_UserPointname(user);netz=CLGET_SystemNet(point);if netz='JANUS' then;do;janus=CLGET_PathJANUS();spool=CLGET_PathSpool();end;else;if netz='ZERBERUS' then;do;janus=CLGET_PathZERBERUS();spool=CLGET_PathSpool();end;else;call bye;end;else;do;call spr;end;taste='';call start;spr:;sprache=clget_userlanguage(user);if sprache='Deutsch' then;do;call vorantragd;end;if sprache='English' then;do;call vorantrage;end;vorantragd:;say d2c(27)"[34m  .---------------------- ---  --  -"d2c(27)"[37m_/"d2c(27)"[31m\"d2c(27)"[37m_____/"d2c(27)"[31m\"d2c(27)"[37m_______ _/"d2c(27)"[31m\"d2c(27)"[37m___/"d2c(27)"[31m\"d2c(27)"[37m_____"d2c(27)"[34m- -- --.";say d2c(27)"[34m  ¦  "d2c(27)"[32m...   ...  ..   ..  ...   ...  "d2c(27)"[37m\"d2c(27)"[31m____  "d2c(27)"[37m\  "d2c(27)"[31m_   "d2c(27)"[37m("d2c(27)"[31m__)"d2c(27)"[37m\  "d2c(27)"[31m_ "d2c(27)"[37m\"d2c(27)"[31m_______\      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m:: :: :: :: ::   :: :: :: ::..   "d2c(27)"[37m/  "d2c(27)"[31m___"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/  "d2c(27)"[31m\"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/   "d2c(27)"[31m\"d2c(27)"[37m\"d2c(27)"[31m/      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m·:.:· :: :: ·:.. :: :: :: ·:.. "d2c(27)"[37m_/   "d2c(27)"[31m/"d2c(27)"[37m_/  "d2c(27)"[31m/  "d2c(27)"[37m_/  _/  "d2c(27)"[31m/  "d2c(27)"[37m_/     "d2c(27)"[31m\       "d2c(27)"[34m¦";say d2c(27)"[34m  ¦                                "d2c(27)"[37m\ "d2c(27)"[31m__/ "d2c(27)"[37m\ "d2c(27)"[31m_____"d2c(27)"[37m\ "d2c(27)"[31m__"d2c(27)"[37m\  "d2c(27)"[31m/___"d2c(27)"[37m\ "d2c(27)"[31m_____/-[sC!]-"d2c(27)"[34m¦";say d2c(27)"[34m  `---"d2c(27)"[32m[ AHT-DH-Online-Point ]"d2c(27)"[34m-------"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m--"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m------------'";say d2c(27);say d2c(27);address command;'type Connectline:online/deutsch/AHT-DH-OnlinePoint-antrag.txt';call vorantragmenu;vorantrage:;say d2c(27)"[34m  .---------------------- ---  --  -"d2c(27)"[37m_/"d2c(27)"[31m\"d2c(27)"[37m_____/"d2c(27)"[31m\"d2c(27)"[37m_______ _/"d2c(27)"[31m\"d2c(27)"[37m___/"d2c(27)"[31m\"d2c(27)"[37m_____"d2c(27)"[34m- -- --.";say d2c(27)"[34m  ¦  "d2c(27)"[32m...   ...  ..   ..  ...   ...  "d2c(27)"[37m\"d2c(27)"[31m____  "d2c(27)"[37m\  "d2c(27)"[31m_   "d2c(27)"[37m("d2c(27)"[31m__)"d2c(27)"[37m\  "d2c(27)"[31m_ "d2c(27)"[37m\"d2c(27)"[31m_______\      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m:: :: :: :: ::   :: :: :: ::..   "d2c(27)"[37m/  "d2c(27)"[31m___"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/  "d2c(27)"[31m\"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/   "d2c(27)"[31m\"d2c(27)"[37m\"d2c(27)"[31m/      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m·:.:· :: :: ·:.. :: :: :: ·:.. "d2c(27)"[37m_/   "d2c(27)"[31m/"d2c(27)"[37m_/  "d2c(27)"[31m/  "d2c(27)"[37m_/  _/  "d2c(27)"[31m/  "d2c(27)"[37m_/     "d2c(27)"[31m\       "d2c(27)"[34m¦";say d2c(27)"[34m  ¦                                "d2c(27)"[37m\ "d2c(27)"[31m__/ "d2c(27)"[37m\ "d2c(27)"[31m_____"d2c(27)"[37m\ "d2c(27)"[31m__"d2c(27)"[37m\  "d2c(27)"[31m/___"d2c(27)"[37m\ "d2c(27)"[31m_____/-[sC!]-"d2c(27)"[34m¦";say d2c(27)"[34m  `---"d2c(27)"[32m[ AHT-DH-Online-Point ]"d2c(27)"[34m-------"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m--"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m------------'";say d2c(27);say d2c(27);address command;'type Connectline:online/english/AHT-DH-OnlinePoint-antrag.txt';call vorantragmenu;vorantragmenu:;call CLONL_ShortMenu('1.Pointantrag stellen ','2.Hab mich vertan ');taste=result;call vorantragweiter;vorantragweiter:;if taste='-1' then call bye;if taste='1' then;do;call antrag;end;else;if taste='2' then;do;call bye;end;antrag:;if terminal='TTY' then say '';call CLONL_GotoXY(1,3);call CLONL_DeleteEOL();call CLONL_GotoXY(1,4);call CLONL_DeleteEOL();say d2c(12)||d2c(13);say d2c(27)"[34m  .---------------------- ---  --  -"d2c(27)"[37m_/"d2c(27)"[31m\"d2c(27)"[37m_____/"d2c(27)"[31m\"d2c(27)"[37m_______ _/"d2c(27)"[31m\"d2c(27)"[37m___/"d2c(27)"[31m\"d2c(27)"[37m_____"d2c(27)"[34m- -- --.";say d2c(27)"[34m  ¦  "d2c(27)"[32m...   ...  ..   ..  ...   ...  "d2c(27)"[37m\"d2c(27)"[31m____  "d2c(27)"[37m\  "d2c(27)"[31m_   "d2c(27)"[37m("d2c(27)"[31m__)"d2c(27)"[37m\  "d2c(27)"[31m_ "d2c(27)"[37m\"d2c(27)"[31m_______\      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m:: :: :: :: ::   :: :: :: ::..   "d2c(27)"[37m/  "d2c(27)"[31m___"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/  "d2c(27)"[31m\"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/   "d2c(27)"[31m\"d2c(27)"[37m\"d2c(27)"[31m/      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m·:.:· :: :: ·:.. :: :: :: ·:.. "d2c(27)"[37m_/   "d2c(27)"[31m/"d2c(27)"[37m_/  "d2c(27)"[31m/  "d2c(27)"[37m_/  _/  "d2c(27)"[31m/  "d2c(27)"[37m_/     "d2c(27)"[31m\       "d2c(27)"[34m¦";say d2c(27)"[34m  ¦                                "d2c(27)"[37m\ "d2c(27)"[31m__/ "d2c(27)"[37m\ "d2c(27)"[31m_____"d2c(27)"[37m\ "d2c(27)"[31m__"d2c(27)"[37m\  "d2c(27)"[31m/___"d2c(27)"[37m\ "d2c(27)"[31m_____/-[sC!]-"d2c(27)"[34m¦";say d2c(27)"[34m  `---"d2c(27)"[32m[ AHT-DH-Online-Point ]"d2c(27)"[34m-------"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m--"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m------------'";say d2c(27)"[25;3H"d2c(27)"[34m------------------------------"d2c(27)"[31m["d2c(27)"[33;1m \>^</"d2c(27)"[0;33m (c) by M.Schulz & D.Hartstein "d2c(27)"[31m]"d2c(27)"[34m-------"d2c(27)"[37m";call CL_PutStr(d2c(27)"[9;16H"d2c(27)'[33mPointname............... : 'd2c(27)'[0;37m');point=CLONL_BlueRead(15,'P-'||user);if length(point)>8 then;do;say d2c(27)'[11;13H'd2c(27)'[41;37m  Pointname größer als 8 Buchstaben !  'd2c(27)'[0;37m';call CLONL_GotoXY(26,13);call CLONL_Wait();call antrag;end;if CLIS_SystemExists(point) then;do;say d2c(27)'[11;13H'd2c(27)'[41;37m  Es gibt schon ein System mit diesem Namen!  'd2c(27)'[0;37m';call CLONL_GotoXY(26,13);call CLONL_Wait();call antrag;end;call pwsel;pwsel:;say d2c(27)'[13;13H'd2c(27)'[40;37m                                                'd2c(27)'[0;37m';call CL_PutStr(d2c(27)"[11;16H"d2c(27)'[33mPasswort................ : 'd2c(27)'[0;37m');pw=CLONL_BlueRead(16);if length(pw)<6 then;do;say d2c(27)'[13;13H'd2c(27)'[41;37m Passwort muss mindestens 6 Stellen lang sein.  'd2c(27)'[0;37m';call CLONL_GotoXY(26,15);call CLONL_Wait();call pwsel;end;say d2c(27)'[13;13H'd2c(27)'[40;37m                                                'd2c(27)'[0;37m';call CL_PutStr(d2c(27)"[13;16H"d2c(27)'[33mZur Sicherheit nochmal.. : 'd2c(27)'[0;37m');pw1=CLONL_BlueRead(16);if upper(pw) ~=upper(pw1) then;do;say d2c(27)'[13;15H'd2c(27)'[41;37m     Passwort stimmen NICHT ueberein =;-(    'd2c(27)'[0;37m';call CLONL_GotoXY(26,15);call CLONL_Wait();call pwsel;end;call CL_PutStr(d2c(27)"[15;16H"d2c(27)'[33mWaehle deinen Packer.... : ');call CLONL_ShortMenu('1.LHA ','2.LZX ','3.ZIP ');taste=result;call packer;packer:;if taste='-1' then call bye;if taste='1' then;do;pack='LHA';call pcamiga;end;else;if taste='2' then;do;pack='LZX';call pcamiga;end;else;if taste='3' then;do;pack='ZIP';call pcamiga;end;else;call packer;pcamiga:;call CL_PutStr(d2c(27)"[17;16H"d2c(27)'[33mWelchen Computer hast du.... : ');call CLONL_ShortMenu('1.Amiga ','2.PC ','3.Sonstige ');taste=result;call pcamiga2;pcamiga2:;if taste='-1' then call bye;if taste='1' then;do;computer='amiga';call xferlset;end;else;if taste='2' then;do;computer='pc';call xferlset;end;else;if taste='3' then;do;computer='pc';call xferlset;end;else;call pcamiga2;xferlset:;call CL_PutStr(d2c(27)"[19;16H"d2c(27)'[33mWelches Übertragungsprotokoll....: ');call CLONL_ShortMenu('1.Z-Modem ','2.Hydracom ');taste=result;call xferlset2;xferlset2:;if taste='-1' then call bye;if taste='1' then;do;xferl='Z-Modem';call antragweiter;end;else;if taste='2' then;do;xferl='Hydracom';call antragweiter;end;else;call xferlset2;antragweiter:;call CL_PutStr(d2c(27)"[21;8H"d2c(27)'[33m    In einem kleinen Moment bekommst Du eine Mail mit allen ');call CL_PutStr(d2c(27)"[22;8H"d2c(27)'[33m                  wichtigen Daten in deine PM.');call CL_PutStr(d2c(27)"[23;1H"d2c(27)'[33m                                             'd2c(27)'[0;37m');call CL_PutStr(d2c(27)"[27;1H");call CL_SystemNew(point);call CLSET_SystemPassword(point,pw);call CLSET_SystemDomain(point,'.'||right(system,length(system)-pos('.',system)));call CLSET_SystemRoute(point,point);call CLSET_SystemNet(point,'JANUS');call CLSET_SystemProtocol(point,xferl);call CLSET_SystemPackerIn(point,pack);call CLSET_SystemPackerOut(point,pack);call CLSET_SystemPointuser(point,user);call CLSET_SystemPriority(point,popri);call CLSET_SystemMapsAccess(point,maacc);call CLSET_SystemAutoEntry(point,0);call CL_SystemSaveList();if computer='amiga' then;do;call amigatxt;end;if computer='pc' then;do;call pctxt;end;amigatxt:;amigatext='connectline:prefs/aht-dh-onlinepoint.amiga';if ~open('test','T:PointAntrag.'user'.'port,'W') then call bye;mailname='T:PointAntrag.'user'.'port;call writeln 'test','Pointname.......... : 'point;call writeln 'test','Pointpasswort...... : 'pw;call writeln 'test','Ihr Username....... : 'user;call writeln 'test','Ihr Realname....... : 'real;call writeln 'test','Boxname............ : 'box;call writeln 'test','Ihre Domain........ : .'right(system,length(system)-pos('.',system));call writeln 'test','Ihre e.mail Adresse : 'user||'@'||system;call writeln 'test','Netzprotokoll...... : JANUS';call writeln 'test','Transferprotokoll.. : 'xferl;call writeln 'test','Packer............. : 'pack;call writeln 'test','';call writeln 'test','';call close 'test';address command;'join 'mailname' 'amigatext' to T:PointAntrag1.'user'.'port;if ~open('test','T:PointAntrag1.'user'.'port,'A') then call bye;call writeln 'test','';call writeln 'test','###########################################################################';call writeln 'test','## ( automail via AHT - DH - OnlinePoint ©96 by M.Schulz & D.Hartstein ) ##';call writeln 'test','###########################################################################';call close 'test';call CLONL_Sendmail(user,user,'Die wichtigsten Daten zu deinem Point','T:PointAntrag1.'user'.'port);empanz=cl_gettext('Connectline:Prefs/AHT-DH-OnlinePoint.emp',emp);do e=0 to empanz-1;call CLONL_Sendmail(user,emp.e,'Pointantrag von User '||user,'T:PointAntrag.'user'.'port);end;address command;'delete >NIL: T:PointAntrag.'user'.'port;'delete >NIL: T:PointAntrag1.'user'.'port;if ~open('test1','T:md.'user'.'port,'W') then call bye;call writeln 'test1','Pointname='point;call writeln 'test1','Boxname='box;call writeln 'test1','Boxdomain=.'right(system,length(system)-pos('.',system));call writeln 'test1','Username='user;call writeln 'test1','Realname='real;call writeln 'test1','Organisation=';call writeln 'test1','Telefon='nummer;call writeln 'test1','Passwort='pw;call writeln 'test1','MapsListID=RE: List Bretter';call close 'test1';call CLONL_Sendmail(user,user,'Microdot.cfg','T:md.'user'.'port);address command;'delete >NIL: T:md.'user'.'port;call autoadd;pctxt:;pctext='connectline:prefs/aht-dh-onlinepoint.pc';if ~open('test','T:PointAntrag.'user'.'port,'W') then call bye;mailname='T:PointAntrag.'user'.'port;call writeln 'test','Pointname.......... : 'point;call writeln 'test','Pointpasswort...... : 'pw;call writeln 'test','Ihr Username....... : 'user;call writeln 'test','Ihr Realname....... : 'real;call writeln 'test','Boxname............ : 'box;call writeln 'test','Ihre Domain........ : .'right(system,length(system)-pos('.',system));call writeln 'test','Ihre e.mail Adresse : 'user||'@'||system;call writeln 'test','Netzprotokoll...... : JANUS';call writeln 'test','Transferprotokoll.. : Z-Modem';call writeln 'test','Packer............. : 'pack;call writeln 'test','';call writeln 'test','';call close 'test';address command;'join 'mailname' 'pctext' to T:PointAntrag1.'user'.'port;if ~open('test','T:PointAntrag1.'user'.'port,'A') then call bye;call writeln 'test','';call writeln 'test','###########################################################################';call writeln 'test','## ( automail via AHT - DH - OnlinePoint ©96 by M.Schulz & D.Hartstein ) ##';call writeln 'test','###########################################################################';call close 'test';call CLONL_Sendmail(user,user,'Die wichtigsten Daten zu deinem Point','T:PointAntrag1.'user'.'port);empanz=cl_gettext('Connectline:Prefs/AHT-DH-OnlinePoint.emp',emp);do e=0 to empanz-1;call CLONL_Sendmail(user,emp.e,'Pointantrag von User '||user,'T:PointAntrag.'user'.'port);end;address command;'delete >NIL: T:PointAntrag.'user'.'port;'delete >NIL: T:PointAntrag1.'user'.'port;call autoadd;autoadd:;filename='connectline:prefs/aht-dh-onlinepoint.add';mailname='T:'point||port'.mail';if ~open('mail',mailname,'W') then call bye;if open('alt',filename,'R') THEN;DO;call seek('alt',0,'E');laenge=result;call close 'alt';call writeln 'mail','ABS:    'user'@'system||d2c(13);call writeln 'mail','BET:    ADD'||d2c(13);call writeln 'mail','EDA:    'date(s)||compress(time(n),':')'@W+1'||d2c(13);call writeln 'mail','MID:    'compress(time(),':')'@'point'.'system||d2c(13);call writeln 'mail','ROT:    'd2c(13);call writeln 'mail','LEN:    'laenge||d2c(13);call writeln 'mail','MAILER:    AHT-DH-CLOnlinePoint V1.0'||d2c(13);call writeln 'mail','EMP:    MAPS@'system||d2c(13);call writeln 'mail',d2c(13);call close 'mail';spool=CLGET_PathSpool();address command;'join 'mailname' 'filename' to 'spool||point'.'compress(time(),':');if exists(mailname) then;do;address command 'delete >NIL: 'mailname;end;address command;'run >NIL: CONNECTLINE:Modules/CLMSortin';exit;start:;say d2c(12)||d2c(13);say d2c(27)"[34m  .---------------------- ---  --  -"d2c(27)"[37m_/"d2c(27)"[31m\"d2c(27)"[37m_____/"d2c(27)"[31m\"d2c(27)"[37m_______ _/"d2c(27)"[31m\"d2c(27)"[37m___/"d2c(27)"[31m\"d2c(27)"[37m_____"d2c(27)"[34m- -- --.";say d2c(27)"[34m  ¦  "d2c(27)"[32m...   ...  ..   ..  ...   ...  "d2c(27)"[37m\"d2c(27)"[31m____  "d2c(27)"[37m\  "d2c(27)"[31m_   "d2c(27)"[37m("d2c(27)"[31m__)"d2c(27)"[37m\  "d2c(27)"[31m_ "d2c(27)"[37m\"d2c(27)"[31m_______\      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m:: :: :: :: ::   :: :: :: ::..   "d2c(27)"[37m/  "d2c(27)"[31m___"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/  "d2c(27)"[31m\"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/   "d2c(27)"[31m\"d2c(27)"[37m\"d2c(27)"[31m/      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m·:.:· :: :: ·:.. :: :: :: ·:.. "d2c(27)"[37m_/   "d2c(27)"[31m/"d2c(27)"[37m_/  "d2c(27)"[31m/  "d2c(27)"[37m_/  _/  "d2c(27)"[31m/  "d2c(27)"[37m_/     "d2c(27)"[31m\       "d2c(27)"[34m¦";say d2c(27)"[34m  ¦                                "d2c(27)"[37m\ "d2c(27)"[31m__/ "d2c(27)"[37m\ "d2c(27)"[31m_____"d2c(27)"[37m\ "d2c(27)"[31m__"d2c(27)"[37m\  "d2c(27)"[31m/___"d2c(27)"[37m\ "d2c(27)"[31m_____/-[sC!]-"d2c(27)"[34m¦";say d2c(27)"[34m  `---"d2c(27)"[32m[ AHT-DH-Online-Point ]"d2c(27)"[34m-------"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m--"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m------------'";say d2c(27)"[9;12H"d2c(27)"[34m1"d2c(27)"[33m.) Puffer Menue..................-=>  drueck die "d2c(27)"[34m1"d2c(27)"[33m Taste ";say d2c(27)"[11;12H"d2c(27)"[34m2"d2c(27)"[33m.) Maps Menue....................-=>  drueck die "d2c(27)"[34m2"d2c(27)"[33m Taste ";say d2c(27)"[17;12H"d2c(27)"[33mE"d2c(27)"[33m.) Ende.........................  drueck die "d2c(27)"[34mE"d2c(27)"[33m Taste ";say d2c(27)"[19;3H"d2c(27)"[34m------------------------------"d2c(27)"[31m["d2c(27)"[33;1m \>^</"d2c(27)"[0;33m (c) by M.Schulz & D.Hartstein "d2c(27)"[31m]"d2c(27)"[34m-------"d2c(27)"[37m";call getstart;getstart:;call CLONL_GotoXY(12,17);call clonl_bluemode();call CLONL_shortmenu(Ende,1,2,3);taste=result;call clonl_normal();if taste='-1' then exit;if taste='1' then call pmenu;if taste='2' then call zeilencheck;if taste='E' then call bye;if taste='e' then call bye;call getstart;zeilencheck:;if zeilen>=32 then call mapsmenab32z;else;call mapsmenw32z;end;mapsmenab32z:;say d2c(12)||d2c(13);say d2c(27)"[34m  .---------------------- ---  --  -"d2c(27)"[37m_/"d2c(27)"[31m\"d2c(27)"[37m_____/"d2c(27)"[31m\"d2c(27)"[37m_______ _/"d2c(27)"[31m\"d2c(27)"[37m___/"d2c(27)"[31m\"d2c(27)"[37m_____"d2c(27)"[34m- -- --.";say d2c(27)"[34m  ¦  "d2c(27)"[32m...   ...  ..   ..  ...   ...  "d2c(27)"[37m\"d2c(27)"[31m____  "d2c(27)"[37m\  "d2c(27)"[31m_   "d2c(27)"[37m("d2c(27)"[31m__)"d2c(27)"[37m\  "d2c(27)"[31m_ "d2c(27)"[37m\"d2c(27)"[31m_______\      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m:: :: :: :: ::   :: :: :: ::..   "d2c(27)"[37m/  "d2c(27)"[31m___"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/  "d2c(27)"[31m\"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/   "d2c(27)"[31m\"d2c(27)"[37m\"d2c(27)"[31m/      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m·:.:· :: :: ·:.. :: :: :: ·:.. "d2c(27)"[37m_/   "d2c(27)"[31m/"d2c(27)"[37m_/  "d2c(27)"[31m/  "d2c(27)"[37m_/  _/  "d2c(27)"[31m/  "d2c(27)"[37m_/     "d2c(27)"[31m\       "d2c(27)"[34m¦";say d2c(27)"[34m  ¦                                "d2c(27)"[37m\ "d2c(27)"[31m__/ "d2c(27)"[37m\ "d2c(27)"[31m_____"d2c(27)"[37m\ "d2c(27)"[31m__"d2c(27)"[37m\  "d2c(27)"[31m/___"d2c(27)"[37m\ "d2c(27)"[31m_____/-[sC!]-"d2c(27)"[34m¦";say d2c(27)"[34m  `---"d2c(27)"[32m[ AHT-DH-Online-Point ]"d2c(27)"[34m-------"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m--"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m------------'";say d2c(27)"[9;4H"d2c(27)"[34m 1"d2c(27)"[33m.) Brettliste anfordern.(kurz).............  drueck die "d2c(27)"[34m1"d2c(27)"[33m Taste ";say d2c(27)"[11;4H"d2c(27)"[34m 2"d2c(27)"[33m.) Brettliste anfordern.(ausfuehrlich).....  drueck die "d2c(27)"[34m2"d2c(27)"[33m Taste ";say d2c(27)"[13;4H"d2c(27)"[34m 3"d2c(27)"[33m.) Bisher bestellte Bretter................  drueck die "d2c(27)"[34m3"d2c(27)"[33m Taste ";say d2c(27)"[15;4H"d2c(27)"[34m 4"d2c(27)"[33m.) Nicht bestellte Bretter.................  drueck die "d2c(27)"[34m4"d2c(27)"[33m Taste ";say d2c(27)"[17;4H"d2c(27)"[34m 5"d2c(27)"[33m.) Hilfe zu MAPS anfordern.................  drueck die "d2c(27)"[34m5"d2c(27)"[33m Taste ";say d2c(27)"[19;4H"d2c(27)"[34m 6"d2c(27)"[33m.) Init-Mail fuer alle bestellten Bretter..  drueck die "d2c(27)"[34m6"d2c(27)"[33m Taste ";say d2c(27)"[21;4H"d2c(27)"[34m 7"d2c(27)"[33m.) Init-Mail fuer bestimmte best. Bretter..  drueck die "d2c(27)"[34m7"d2c(27)"[33m Taste ";say d2c(27)"[23;4H"d2c(27)"[34m 8"d2c(27)"[33m.) Bretter bestellen.......................  drueck die "d2c(27)"[34m8"d2c(27)"[33m Taste ";say d2c(27)"[25;4H"d2c(27)"[34m 9"d2c(27)"[33m.) Bretter abbestellen.....................  drueck die "d2c(27)"[34m9"d2c(27)"[33m Taste ";say d2c(27)"[27;4H"d2c(27)"[34m10"d2c(27)"[33m.) Bestellte Bretter parken (Hold On)......  drueck die "d2c(27)"[34ma"d2c(27)"[33m Taste ";say d2c(27)"[29;4H"d2c(27)"[34m11"d2c(27)"[33m.) geparkte Bretter freigeben (Hold Off)...  drueck die "d2c(27)"[34mb"d2c(27)"[33m Taste ";say d2c(27)"[31;3H"d2c(27)"[34m------------------------------"d2c(27)"[31m["d2c(27)"[33;1m \>^</"d2c(27)"[0;33m (c) by M.Schulz & D.Hartstein "d2c(27)"[31m]"d2c(27)"[34m-------"d2c(27)"[37m";call mapsunmenab32z;mapsunmenab32z:;taste=''||d2c(0);call CLONL_GotoXY(4,33);call clonl_bluemode();call CLONL_shortmenu(Zurueck,1,2,3,4,5,6,7,8,9,A,B);taste=result;call clonl_normal();if taste='-1' then call bye;if taste='1' then call libretterk;if taste='2' then call librettera;if taste='3' then call bisbre;if taste='4' then call othbre;if taste='5' then call hilfe;if taste='6' then call inita;if taste='7' then call initb;if taste='8' then call brebest;if taste='9' then call breabbe;if taste='a' then call breholdon;if taste='A' then call breholdon;if taste='b' then call breholdoff;if taste='B' then call breholdoff;if taste='Z' then call start;if taste='z' then call start;call mapsunmenab32z;mapsmenw32z:;say d2c(12)||d2c(13);say d2c(27)"[34m  .---------------------- ---  --  -"d2c(27)"[37m_/"d2c(27)"[31m\"d2c(27)"[37m_____/"d2c(27)"[31m\"d2c(27)"[37m_______ _/"d2c(27)"[31m\"d2c(27)"[37m___/"d2c(27)"[31m\"d2c(27)"[37m_____"d2c(27)"[34m- -- --.";say d2c(27)"[34m  ¦  "d2c(27)"[32m...   ...  ..   ..  ...   ...  "d2c(27)"[37m\"d2c(27)"[31m____  "d2c(27)"[37m\  "d2c(27)"[31m_   "d2c(27)"[37m("d2c(27)"[31m__)"d2c(27)"[37m\  "d2c(27)"[31m_ "d2c(27)"[37m\"d2c(27)"[31m_______\      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m:: :: :: :: ::   :: :: :: ::..   "d2c(27)"[37m/  "d2c(27)"[31m___"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/  "d2c(27)"[31m\"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/   "d2c(27)"[31m\"d2c(27)"[37m\"d2c(27)"[31m/      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m`:.:` :: :: `:.. :: :: :: `:.. "d2c(27)"[37m_/   "d2c(27)"[31m/"d2c(27)"[37m_/  "d2c(27)"[31m/  "d2c(27)"[37m_/  _/  "d2c(27)"[31m/  "d2c(27)"[37m_/     "d2c(27)"[31m\       "d2c(27)"[34m¦";say d2c(27)"[34m  ¦                                "d2c(27)"[37m\ "d2c(27)"[31m__/ "d2c(27)"[37m\ "d2c(27)"[31m_____"d2c(27)"[37m\ "d2c(27)"[31m__"d2c(27)"[37m\  "d2c(27)"[31m/___"d2c(27)"[37m\ "d2c(27)"[31m_____/-[sC!]-"d2c(27)"[34m¦";say d2c(27)"[34m  `---"d2c(27)"[32m[ AHT-DH-Online-Point ]"d2c(27)"[34m-------"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m--"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m------------'";say d2c(27)"[9;4H"d2c(27)"[34m 1"d2c(27)"[33m.) Brettliste anfordern.(kurz).............  drueck die "d2c(27)"[34m1"d2c(27)"[33m Taste ";say d2c(27)"[11;4H"d2c(27)"[34m 2"d2c(27)"[33m.) Brettliste anfordern.(ausfuehrlich).....  drueck die "d2c(27)"[34m2"d2c(27)"[33m Taste ";say d2c(27)"[13;4H"d2c(27)"[34m 3"d2c(27)"[33m.) Bisher bestellte Bretter................  drueck die "d2c(27)"[34m3"d2c(27)"[33m Taste ";say d2c(27)"[15;4H"d2c(27)"[34m 4"d2c(27)"[33m.) Nicht bestellte Bretter.................  drueck die "d2c(27)"[34m4"d2c(27)"[33m Taste ";say d2c(27)"[17;4H"d2c(27)"[34m 5"d2c(27)"[33m.) Hilfe zu MAPS anfordern.................  drueck die "d2c(27)"[34m5"d2c(27)"[33m Taste ";say d2c(27)"[19;4H"d2c(27)"[34m 6"d2c(27)"[33m.) Weitere Mapsbefehle.....................  drueck die "d2c(27)"[34mw"d2c(27)"[33m Taste ";say d2c(27)"[21;3H"d2c(27)"[34m------------------------------"d2c(27)"[31m["d2c(27)"[33;1m \>^</"d2c(27)"[0;33m (c) by M.Schulz & D.Hartstein "d2c(27)"[31m]"d2c(27)"[34m-------"d2c(27)"[37m";call mapsunmenw32z;mapsunmenw32z:;taste=''||d2c(0);call CLONL_GotoXY(4,23);call clonl_bluemode();call CLONL_shortmenu(Zurueck,1,2,3,4,5,W);taste=result;call clonl_normal();if taste='-1' then call bye;if taste='1' then call libretterk;if taste='2' then call librettera;if taste='3' then call bisbre;if taste='4' then call othbre;if taste='5' then call hilfe;if taste='W' then call mapsmenweiter;if taste='w' then call mapsmenweiter;if taste='Z' then call start;if taste='z' then call start;call mapsunmenw32z;mapsmenweiter:;say d2c(12)||d2c(13);say d2c(27)"[34m  .---------------------- ---  --  -"d2c(27)"[37m_/"d2c(27)"[31m\"d2c(27)"[37m_____/"d2c(27)"[31m\"d2c(27)"[37m_______ _/"d2c(27)"[31m\"d2c(27)"[37m___/"d2c(27)"[31m\"d2c(27)"[37m_____"d2c(27)"[34m- -- --.";say d2c(27)"[34m  ¦  "d2c(27)"[32m...   ...  ..   ..  ...   ...  "d2c(27)"[37m\"d2c(27)"[31m____  "d2c(27)"[37m\  "d2c(27)"[31m_   "d2c(27)"[37m("d2c(27)"[31m__)"d2c(27)"[37m\  "d2c(27)"[31m_ "d2c(27)"[37m\"d2c(27)"[31m_______\      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m:: :: :: :: ::   :: :: :: ::..   "d2c(27)"[37m/  "d2c(27)"[31m___"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/  "d2c(27)"[31m\"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/   "d2c(27)"[31m\"d2c(27)"[37m\"d2c(27)"[31m/      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m`:.:` :: :: `:.. :: :: :: `:.. "d2c(27)"[37m_/   "d2c(27)"[31m/"d2c(27)"[37m_/  "d2c(27)"[31m/  "d2c(27)"[37m_/  _/  "d2c(27)"[31m/  "d2c(27)"[37m_/     "d2c(27)"[31m\       "d2c(27)"[34m¦";say d2c(27)"[34m  ¦                                "d2c(27)"[37m\ "d2c(27)"[31m__/ "d2c(27)"[37m\ "d2c(27)"[31m_____"d2c(27)"[37m\ "d2c(27)"[31m__"d2c(27)"[37m\  "d2c(27)"[31m/___"d2c(27)"[37m\ "d2c(27)"[31m_____/-[sC!]-"d2c(27)"[34m¦";say d2c(27)"[34m  `---"d2c(27)"[32m[ AHT-DH-Online-Point ]"d2c(27)"[34m-------"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m--"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m------------'";say d2c(27)"[9;4H"d2c(27)"[34m 1"d2c(27)"[33m.) Init-Mail fuer alle bestellten Bretter..  drueck die "d2c(27)"[34m1"d2c(27)"[33m Taste ";say d2c(27)"[11;4H"d2c(27)"[34m 2"d2c(27)"[33m.) Init-Mail fuer bestimmte best. Bretter..  drueck die "d2c(27)"[34m2"d2c(27)"[33m Taste ";say d2c(27)"[13;4H"d2c(27)"[34m 3"d2c(27)"[33m.) Bretter bestellen.......................  drueck die "d2c(27)"[34m3"d2c(27)"[33m Taste ";say d2c(27)"[15;4H"d2c(27)"[34m 4"d2c(27)"[33m.) Bretter abbestellen.....................  drueck die "d2c(27)"[34m4"d2c(27)"[33m Taste ";say d2c(27)"[17;4H"d2c(27)"[34m 5"d2c(27)"[33m.) Bestellte Bretter parken (Hold On)......  drueck die "d2c(27)"[34m5"d2c(27)"[33m Taste ";say d2c(27)"[19;4H"d2c(27)"[34m 6"d2c(27)"[33m.) geparkte Bretter freigeben (Hold Off)...  drueck die "d2c(27)"[34m6"d2c(27)"[33m Taste ";say d2c(27)"[21;3H"d2c(27)"[34m------------------------------"d2c(27)"[31m["d2c(27)"[33;1m \>^</"d2c(27)"[0;33m (c) by M.Schulz & D.Hartstein "d2c(27)"[31m]"d2c(27)"[34m-------"d2c(27)"[37m";call mapsunmenweiter;mapsunmenweiter:;taste=''||d2c(0);call CLONL_GotoXY(4,23);call clonl_bluemode();call CLONL_shortmenu(Zurueck,1,2,3,4,5,6);taste=result;call clonl_normal();if taste='-1' then call bye;if taste='1' then call inita;if taste='2' then call initb;if taste='3' then call brebest;if taste='4' then call breabbe;if taste='5' then call breholdon;if taste='6' then call breholdoff;if taste='Z' then call mapsmenw32z;if taste='z' then call mapsmenw32z;call mapsunmenw32z;othbre:;mailname='T:'pointLISTBRETTER||port'.mail';if ~open('mail',mailname,'W') then call bye;call writeln 'mail','ABS:    'user'@'system||d2c(13);call writeln 'mail','BET:    LIST OTHER BRETTER'||d2c(13);call writeln 'mail','EDA:    'date(s)||compress(time(n),':')'@W+1'||d2c(13);call writeln 'mail','MID:    'compress(time(),':')'@'point'.'system||d2c(13);call writeln 'mail','ROT:    'd2c(13);call writeln 'mail','LEN:    '27||d2c(13);call writeln 'mail','MAILER:    AHT-DH-CLOnlinePoint V1.0'||d2c(13);call writeln 'mail','EMP:    MAPS@'system||d2c(13);call writeln 'mail',d2c(13);call writeln 'mail','LIST OTHER BRETTER'd2c(13);call close 'mail';address command;'copy >NIL: 'mailname' to 'spool||point'.'compress(time(),':');'delete >NIL: 'mailname;address;if exists(mailname) then;do;address command 'delete >NIL: 'mailname;end;address command;'run >NIL: CONNECTLINE:Modules/CLMSortin';address;call zeilencheck;bisbre:;mailname='T:'pointLISTBRETTER||port'.mail';if ~open('mail',mailname,'W') then call bye;call writeln 'mail','ABS:    'user'@'system||d2c(13);call writeln 'mail','BET:    LIST MY BRETTER'||d2c(13);call writeln 'mail','EDA:    'date(s)||compress(time(n),':')'@W+1'||d2c(13);call writeln 'mail','MID:    'compress(time(),':')'@'point'.'system||d2c(13);call writeln 'mail','ROT:    'd2c(13);call writeln 'mail','LEN:    '24||d2c(13);call writeln 'mail','MAILER:    AHT-DH-CLOnlinePoint V1.0'||d2c(13);call writeln 'mail','EMP:    MAPS@'system||d2c(13);call writeln 'mail',d2c(13);call writeln 'mail','LIST MY BRETTER'd2c(13);call close 'mail';address command;'copy >NIL: 'mailname' to 'spool||point'.'compress(time(),':');'delete >NIL: 'mailname;address;if exists(mailname) then;do;address command 'delete >NIL: 'mailname;end;address command;'run >NIL: CONNECTLINE:Modules/CLMSortin';address;call zeilencheck;librettera:;mailname='T:'pointLISTBRETTER||port'.mail';if ~open('mail',mailname,'W') then call bye;call writeln 'mail','ABS:    'user'@'system||d2c(13);call writeln 'mail','BET:    LIST BRETTER VERBOSE'||d2c(13);call writeln 'mail','EDA:    'date(s)||compress(time(n),':')'@W+1'||d2c(13);call writeln 'mail','MID:    'compress(time(),':')'@'point'.'system||d2c(13);call writeln 'mail','ROT:    'd2c(13);call writeln 'mail','LEN:    '22||d2c(13);call writeln 'mail','MAILER:    AHT-DH-CLOnlinePoint V1.0'||d2c(13);call writeln 'mail','EMP:    MAPS@'system||d2c(13);call writeln 'mail',d2c(13);call writeln 'mail','LIST BRETTER VERBOSE'd2c(13);call close 'mail';address command;'copy >NIL: 'mailname' to 'spool||point'.'compress(time(),':');'delete >NIL: 'mailname;address;if exists(mailname) then;do;address command 'delete >NIL: 'mailname;end;address command;'run >NIL: CONNECTLINE:Modules/CLMSortin';address;call zeilencheck;libretterk:;mailname='T:'pointLISTBRETTER||port'.mail';if ~open('mail',mailname,'W') then call bye;call writeln 'mail','ABS:    'user'@'system||d2c(13);call writeln 'mail','BET:    LIST BRETTER'||d2c(13);call writeln 'mail','EDA:    'date(s)||compress(time(n),':')'@W+1'||d2c(13);call writeln 'mail','MID:    'compress(time(),':')'@'point'.'system||d2c(13);call writeln 'mail','ROT:    'd2c(13);call writeln 'mail','LEN:    '22||d2c(13);call writeln 'mail','MAILER:    AHT-DH-CLOnlinePoint V1.0'||d2c(13);call writeln 'mail','EMP:    MAPS@'system||d2c(13);call writeln 'mail',d2c(13);call writeln 'mail','LIST BRETTER'd2c(13);call close 'mail';address command;'copy >NIL: 'mailname' to 'spool||point'.'compress(time(),':');'delete >NIL: 'mailname;address;if exists(mailname) then;do;address command 'delete >NIL: 'mailname;end;address command;'run >NIL: CONNECTLINE:Modules/CLMSortin';address;call zeilencheck;inita:;mailname='T:'pointLISTBRETTER||port'.mail';if ~open('mail',mailname,'W') then call bye;call writeln 'mail','ABS:    'user'@'system||d2c(13);call writeln 'mail','BET:    Init'||d2c(13);call writeln 'mail','EDA:    'date(s)||compress(time(n),':')'@W+1'||d2c(13);call writeln 'mail','MID:    'compress(time(),':')'@'point'.'system||d2c(13);call writeln 'mail','ROT:    'd2c(13);call writeln 'mail','LEN:    '22||d2c(13);call writeln 'mail','MAILER:    AHT-DH-CLOnlinePoint V1.0'||d2c(13);call writeln 'mail','EMP:    MAPS@'system||d2c(13);call writeln 'mail',d2c(13);call writeln 'mail','Init'd2c(13);call close 'mail';address command;'copy >NIL: 'mailname' to 'spool||point'.'compress(time(),':');'delete >NIL: 'mailname;address;if exists(mailname) then;do;address command 'delete >NIL: 'mailname;end;address command;'run >NIL: CONNECTLINE:Modules/CLMSortin';address;call zeilencheck;initb:;filename1='T:clpucommand1.'point||port;filename='T:clpucommand.'point||port;call CL_Edit(filename1,);IF OPEN('kl',filename1) then;do;call seek('kl',0,'E');laenge=result;call close 'kl';if laenge<4 then call start;end;IF ~OPEN('kl',filename1) then call start;call close 'kl';mailname='T:'point||port'.mail';if ~open('mail',mailname,'W') then call bye;c=0;if open('alt',filename1,'R') THEN;DO;if open('neu',filename,'W') THEN;do until eof('alt');text=readln('alt');if text ~= d2c(13) then call writeln 'neu',text||d2c(13);c=c+1;wend;end;call close 'alt';call close 'neu';end;address command;'delete >NIL: T:clpucommand1.'point||port;address;IF OPEN('kl',filename) then;do;call seek('kl',0,'E');laenge=result;call close 'kl';end;call writeln 'mail','ABS:    'user'@'system||d2c(13);call writeln 'mail','BET:    Init Bretter'||d2c(13);call writeln 'mail','EDA:    'date(s)||compress(time(n),':')'@W+1'||d2c(13);call writeln 'mail','MID:    'compress(time(),':')'@'point'.'system||d2c(13);call writeln 'mail','ROT:    'd2c(13);call writeln 'mail','LEN:    'laenge-c||d2c(13);call writeln 'mail','MAILER:    AHT-DH-CLOnlinePoint V1.0'||d2c(13);call writeln 'mail','EMP:    MAPS@'system||d2c(13);call writeln 'mail',d2c(13);call close 'mail';address command;'join 'mailname' 'filename' to 'spool||point'.'compress(time(),':');address;if exists(mailname) then;do;address command 'delete >NIL: 'mailname;end;if exists('T:clpucommand.'point||port) then;address command 'delete >NIL: T:clpucommand.'point||port;address command;'run >NIL: CONNECTLINE:Modules/CLMSortin';address;call zeilencheck;hilfe:;mailname='T:'pointLISTBRETTER||port'.mail';if ~open('mail',mailname,'W') then call bye;call writeln 'mail','ABS:    'user'@'system||d2c(13);call writeln 'mail','BET:    HILFE'||d2c(13);call writeln 'mail','EDA:    'date(s)||compress(time(n),':')'@W+1'||d2c(13);call writeln 'mail','MID:    'compress(time(),':')'@'point'.'system||d2c(13);call writeln 'mail','ROT:    'd2c(13);call writeln 'mail','LEN:    '6||d2c(13);call writeln 'mail','MAILER:    AHT-DH-CLOnlinePoint V1.0'||d2c(13);call writeln 'mail','EMP:    MAPS@'system||d2c(13);call writeln 'mail',d2c(13);call writeln 'mail','HILFE'd2c(13);call close 'mail';address command;'copy >NIL: 'mailname' to 'spool||point'.'compress(time(),':');'delete >NIL: 'mailname;address;if exists(mailname) then;do;address command 'delete >NIL: 'mailname;end;address command;'run >NIL: CONNECTLINE:Modules/CLMSortin';address;call zeilencheck;breholdon:;mailname='T:'pointLISTBRETTER||port'.mail';if ~open('mail',mailname,'W') then call bye;call writeln 'mail','ABS:    'user'@'system||d2c(13);call writeln 'mail','BET:    Hold On'||d2c(13);call writeln 'mail','EDA:    'date(s)||compress(time(n),':')'@W+1'||d2c(13);call writeln 'mail','MID:    'compress(time(),':')'@'point'.'system||d2c(13);call writeln 'mail','ROT:    'd2c(13);call writeln 'mail','LEN:    '22||d2c(13);call writeln 'mail','MAILER:    AHT-DH-CLOnlinePoint V1.0'||d2c(13);call writeln 'mail','EMP:    MAPS@'system||d2c(13);call writeln 'mail',d2c(13);call writeln 'mail','Hold On'd2c(13);call close 'mail';address command;'copy >NIL: 'mailname' to 'spool||point'.'compress(time(),':');'delete >NIL: 'mailname;address;if exists(mailname) then;do;address command 'delete >NIL: 'mailname;end;address command;'run >NIL: CONNECTLINE:Modules/CLMSortin';address;call zeilencheck;breholdoff:;mailname='T:'pointLISTBRETTER||port'.mail';if ~open('mail',mailname,'W') then call bye;call writeln 'mail','ABS:    'user'@'system||d2c(13);call writeln 'mail','BET:    Hold Off'||d2c(13);call writeln 'mail','EDA:    'date(s)||compress(time(n),':')'@W+1'||d2c(13);call writeln 'mail','MID:    'compress(time(),':')'@'point'.'system||d2c(13);call writeln 'mail','ROT:    'd2c(13);call writeln 'mail','LEN:    '22||d2c(13);call writeln 'mail','MAILER:    AHT-DH-CLOnlinePoint V1.0'||d2c(13);call writeln 'mail','EMP:    MAPS@'system||d2c(13);call writeln 'mail',d2c(13);call writeln 'mail','Hold Off'd2c(13);call close 'mail';address command;'copy >NIL: 'mailname' to 'spool||point'.'compress(time(),':');'delete >NIL: 'mailname;address;if exists(mailname) then;do;address command 'delete >NIL: 'mailname;end;address command;'run >NIL: CONNECTLINE:Modules/CLMSortin';address;call zeilencheck;brebest:;filename1='T:clpucommand1.'point||port;filename='T:clpucommand.'point||port;call CL_Edit(filename1,);IF OPEN('kl',filename1) then;do;call seek('kl',0,'E');laenge=result;call close 'kl';if laenge<4 then call start;end;IF ~OPEN('kl',filename1) then call start;call close 'kl';mailname='T:'point||port'.mail';if ~open('mail',mailname,'W') then call bye;c=0;if open('alt',filename1,'R') THEN;DO;if open('neu',filename,'W') THEN;do until eof('alt');text=readln('alt');if text ~= d2c(13) then call writeln 'neu',text||d2c(13);c=c+1;wend;end;call close 'alt';call close 'neu';end;address command;'delete >NIL: T:clpucommand1.'point||port;address;IF OPEN('kl',filename) then;do;call seek('kl',0,'E');laenge=result;call close 'kl';end;call writeln 'mail','ABS:    'user'@'system||d2c(13);call writeln 'mail','BET:    ADD'||d2c(13);call writeln 'mail','EDA:    'date(s)||compress(time(n),':')'@W+1'||d2c(13);call writeln 'mail','MID:    'compress(time(),':')'@'point'.'system||d2c(13);call writeln 'mail','ROT:    'd2c(13);call writeln 'mail','LEN:    'laenge-c||d2c(13);call writeln 'mail','MAILER:    AHT-DH-CLOnlinePoint V1.0'||d2c(13);call writeln 'mail','EMP:    MAPS@'system||d2c(13);call writeln 'mail',d2c(13);call close 'mail';address command;'join 'mailname' 'filename' to 'spool||point'.'compress(time(),':');address;if exists(mailname) then;do;address command 'delete >NIL: 'mailname;end;if exists('T:clpucommand.'point||port) then;address command 'delete >NIL: T:clpucommand.'point||port;address command;'run >NIL: CONNECTLINE:Modules/CLMSortin';address;call zeilencheck;breabbe:;filename1='T:clpucommand1.'point||port;filename='T:clpucommand.'point||port;call CL_Edit(filename1,);IF OPEN('kl',filename1) then;do;call seek('kl',0,'E');laenge=result;call close 'kl';if laenge<4 then call start;end;IF ~OPEN('kl',filename1) then call start;call close 'kl';mailname='T:'point||port'.mail';if ~open('mail',mailname,'W') then call bye;c=0;if open('alt',filename1,'R') THEN;DO;if open('neu',filename,'W') THEN;do until eof('alt');text=readln('alt');if text ~= d2c(13) then call writeln 'neu',text||d2c(13);c=c+1;wend;end;call close 'alt';call close 'neu';end;address command;'delete >NIL: T:clpucommand1.'point||port;address;IF OPEN('kl',filename) then;do;call seek('kl',0,'E');laenge=result;call close 'kl';end;call writeln 'mail','ABS:    'user'@'system||d2c(13);call writeln 'mail','BET:    DEL'||d2c(13);call writeln 'mail','EDA:    'date(s)||compress(time(n),':')'@W+1'||d2c(13);call writeln 'mail','MID:    'compress(time(),':')'@'point'.'system||d2c(13);call writeln 'mail','ROT:    'd2c(13);call writeln 'mail','LEN:    'laenge-c||d2c(13);call writeln 'mail','MAILER:    AHT-DH-CLOnlinePoint V1.0'||d2c(13);call writeln 'mail','EMP:    MAPS@'system||d2c(13);call writeln 'mail',d2c(13);call close 'mail';address command;'join 'mailname' 'filename' to 'spool||point'.'compress(time(),':');address;if exists(mailname) then;do;address command 'delete >NIL: 'mailname;end;if exists('T:clpucommand.'point||port) then;address command 'delete >NIL: T:clpucommand.'point||port;address command;'run >NIL: CONNECTLINE:Modules/CLMSortin';address;call zeilencheck;pmenu:;say d2c(12)||d2c(13);say d2c(27)"[34m  .---------------------- ---  --  -"d2c(27)"[37m_/"d2c(27)"[31m\"d2c(27)"[37m_____/"d2c(27)"[31m\"d2c(27)"[37m_______ _/"d2c(27)"[31m\"d2c(27)"[37m___/"d2c(27)"[31m\"d2c(27)"[37m_____"d2c(27)"[34m- -- --.";say d2c(27)"[34m  ¦  "d2c(27)"[32m...   ...  ..   ..  ...   ...  "d2c(27)"[37m\"d2c(27)"[31m____  "d2c(27)"[37m\  "d2c(27)"[31m_   "d2c(27)"[37m("d2c(27)"[31m__)"d2c(27)"[37m\  "d2c(27)"[31m_ "d2c(27)"[37m\"d2c(27)"[31m_______\      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m:: :: :: :: ::   :: :: :: ::..   "d2c(27)"[37m/  "d2c(27)"[31m___"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/  "d2c(27)"[31m\"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/   "d2c(27)"[31m\"d2c(27)"[37m\"d2c(27)"[31m/      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m·:.:· :: :: ·:.. :: :: :: ·:.. "d2c(27)"[37m_/   "d2c(27)"[31m/"d2c(27)"[37m_/  "d2c(27)"[31m/  "d2c(27)"[37m_/  _/  "d2c(27)"[31m/  "d2c(27)"[37m_/     "d2c(27)"[31m\       "d2c(27)"[34m¦";say d2c(27)"[34m  ¦                                "d2c(27)"[37m\ "d2c(27)"[31m__/ "d2c(27)"[37m\ "d2c(27)"[31m_____"d2c(27)"[37m\ "d2c(27)"[31m__"d2c(27)"[37m\  "d2c(27)"[31m/___"d2c(27)"[37m\ "d2c(27)"[31m_____/-[sC!]-"d2c(27)"[34m¦";say d2c(27)"[34m  `---"d2c(27)"[32m[ AHT-DH-Online-Point ]"d2c(27)"[34m-------"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m--"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m------------'";say d2c(27)"[9;12H"d2c(27)"[34m1"d2c(27)"[33m.) Puffer downloaden............  drueck die "d2c(27)"[34m1"d2c(27)"[33m Taste ";say d2c(27)"[11;12H"d2c(27)"[34m2"d2c(27)"[33m.) Puffer uploaden (ungepackt)..  drueck die "d2c(27)"[34m2"d2c(27)"[33m Taste ";say d2c(27)"[13;12H"d2c(27)"[34m3"d2c(27)"[33m.) Kopie downloaden.............  drueck die "d2c(27)"[34m3"d2c(27)"[33m Taste ";say d2c(27)"[15;12H"d2c(27)"[34m4"d2c(27)"[33m.) Puffer loeschen..............  drueck die "d2c(27)"[34m4"d2c(27)"[33m Taste ";say d2c(27)"[17;12H"d2c(27)"[33m4"d2c(27)"[33m.) Zurueck..................<=-.  drueck die "d2c(27)"[34mZ"d2c(27)"[33m Taste ";say d2c(27)"[19;3H"d2c(27)"[34m------------------------------"d2c(27)"[31m["d2c(27)"[33;1m \>^</"d2c(27)"[0;33m (c) by M.Schulz & D.Hartstein "d2c(27)"[31m]"d2c(27)"[34m-------"d2c(27)"[37m";call getpmenu;getpmenu:;taste=''||d2c(0);call CLONL_GotoXY(12,17);call clonl_bluemode();call CLONL_shortmenu(Zurueck,1,2,3,4);taste=result;call clonl_normal();if taste='-1' then call bye;if taste='1' then call pdown;if taste='2' then call pufferup;if taste='3' then call kopdown;if taste='4' then call pufferlo;if taste='Z' then call start;if taste='z' then call start;call getpmenu;kopdown:;lenpre=0;lenbre=0;lenpm=0;lenkop=0;if open('FILE0',janus||point||'/'||point||'.PRE') then;do;call seek('FILE0',0,'E');lenpre=result;CALL close ('FILE0');end;if open('FILE1',janus||point||'/'||point||'.MBX') then;do;call seek('FILE1',0,'E');lenbre=result;CALL close ('FILE1');end;if open('FILE2',janus||point||'/'||point||'.MBP') then;do;call seek('FILE2',0,'E');lenpm=result;CALL close ('FILE2');end;if open('FILE3',janus||point||'/'||point||'.outgoing-bak') then;do;call seek('FILE3',0,'E');lenkop=result;CALL close ('FILE3');end;say d2c(12)||d2c(27)"[34m  .---------------------- ---  --  -"d2c(27)"[37m_/"d2c(27)"[31m\"d2c(27)"[37m_____/"d2c(27)"[31m\"d2c(27)"[37m_______ _/"d2c(27)"[31m\"d2c(27)"[37m___/"d2c(27)"[31m\"d2c(27)"[37m_____"d2c(27)"[34m- -- --.";say d2c(27)"[34m  ¦  "d2c(27)"[32m...   ...  ..   ..  ...   ...  "d2c(27)"[37m\"d2c(27)"[31m____  "d2c(27)"[37m\  "d2c(27)"[31m_   "d2c(27)"[37m("d2c(27)"[31m__)"d2c(27)"[37m\  "d2c(27)"[31m_ "d2c(27)"[37m\"d2c(27)"[31m_______\      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m:: :: :: :: ::   :: :: :: ::..   "d2c(27)"[37m/  "d2c(27)"[31m___"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/  "d2c(27)"[31m\"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/   "d2c(27)"[31m\"d2c(27)"[37m\"d2c(27)"[31m/      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m·:.:· :: :: ·:.. :: :: :: ·:.. "d2c(27)"[37m_/   "d2c(27)"[31m/"d2c(27)"[37m_/  "d2c(27)"[31m/  "d2c(27)"[37m_/  _/  "d2c(27)"[31m/  "d2c(27)"[37m_/     "d2c(27)"[31m\       "d2c(27)"[34m¦";say d2c(27)"[34m  ¦                                "d2c(27)"[37m\ "d2c(27)"[31m__/ "d2c(27)"[37m\ "d2c(27)"[31m_____"d2c(27)"[37m\ "d2c(27)"[31m__"d2c(27)"[37m\  "d2c(27)"[31m/___"d2c(27)"[37m\ "d2c(27)"[31m_____/-[sC!]-"d2c(27)"[34m¦";say d2c(27)"[34m  `---"d2c(27)"[32m[ AHT-DH-Online-Point ]"d2c(27)"[34m-------"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m--"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m------------'";say d2c(27)"[9;12H"d2c(27)"[33m     Ungepackte Brett Mails..... : ........ Bytes";say d2c(27)"[11;12H"d2c(27)"[33m     Ungepackte private Mails... : ........ Bytes";say d2c(27)"[13;12H"d2c(27)"[33m     Gepackter Pointpuffer...... : ........ Bytes";say d2c(27)"[15;12H"d2c(27)"[33m     letzte Pufferkopie......... : ........ Bytes";say d2c(27)"[9;47H"d2c(27)"[34m"||lenbre||d2c(27)"[37m";say d2c(27)"[11;47H"d2c(27)"[34m"||lenpm||d2c(27)"[37m";say d2c(27)"[13;47H"d2c(27)"[34m"||lenpre||d2c(27)"[37m";say d2c(27)"[15;47H"d2c(27)"[34m"||lenkop||d2c(27)"[37m";say d2c(27)"[17;12H"d2c(27)"[33mMoechtest Du die Pufferkopie jetzt Downloaden "d2c(27)"[37m";say d2c(27)"[19;3H"d2c(27)"[34m------------------------------"d2c(27)"[31m["d2c(27)"[33;1m \>^</"d2c(27)"[0;33m (c) by M.Schulz & D.Hartstein "d2c(27)"[31m]"d2c(27)"[34m-------"d2c(27)"[37m";call pkdja;pkdja:;taste=''||d2c(0);call CLONL_GotoXY(59,17);call clonl_bluemode();call CLONL_shortmenu(Ja,Nein);taste=result;call clonl_normal();if taste='-1' then call bye;if taste='J' then call wirkdown;if taste='j' then call wirkdown;if taste='N' then call pmenu;if taste='n' then call pmenu;call pkdja;wirkdown:;say d2c(12)||d2c(27)"[34m  .---------------------- ---  --  -"d2c(27)"[37m_/"d2c(27)"[31m\"d2c(27)"[37m_____/"d2c(27)"[31m\"d2c(27)"[37m_______ _/"d2c(27)"[31m\"d2c(27)"[37m___/"d2c(27)"[31m\"d2c(27)"[37m_____"d2c(27)"[34m- -- --.";say d2c(27)"[34m  ¦  "d2c(27)"[32m...   ...  ..   ..  ...   ...  "d2c(27)"[37m\"d2c(27)"[31m____  "d2c(27)"[37m\  "d2c(27)"[31m_   "d2c(27)"[37m("d2c(27)"[31m__)"d2c(27)"[37m\  "d2c(27)"[31m_ "d2c(27)"[37m\"d2c(27)"[31m_______\      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m:: :: :: :: ::   :: :: :: ::..   "d2c(27)"[37m/  "d2c(27)"[31m___"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/  "d2c(27)"[31m\"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/   "d2c(27)"[31m\"d2c(27)"[37m\"d2c(27)"[31m/      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m·:.:· :: :: ·:.. :: :: :: ·:.. "d2c(27)"[37m_/   "d2c(27)"[31m/"d2c(27)"[37m_/  "d2c(27)"[31m/  "d2c(27)"[37m_/  _/  "d2c(27)"[31m/  "d2c(27)"[37m_/     "d2c(27)"[31m\       "d2c(27)"[34m¦";say d2c(27)"[34m  ¦                                "d2c(27)"[37m\ "d2c(27)"[31m__/ "d2c(27)"[37m\ "d2c(27)"[31m_____"d2c(27)"[37m\ "d2c(27)"[31m__"d2c(27)"[37m\  "d2c(27)"[31m/___"d2c(27)"[37m\ "d2c(27)"[31m_____/-[sC!]-"d2c(27)"[34m¦";say d2c(27)"[34m  `---"d2c(27)"[32m[ AHT-DH-Online-Point ]"d2c(27)"[34m-------"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m--"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m------------'";say d2c(27)"[13;12H"d2c(27)"[33m           sende Kopie fuer Point.. : "d2c(27)"[32m"||point||d2c(27)"[37m";say d2c(27)"[19;3H"d2c(27)"[34m------------------------------"d2c(27)"[31m["d2c(27)"[33;1m \>^</"d2c(27)"[0;33m (c) by M.Schulz & D.Hartstein "d2c(27)"[31m]"d2c(27)"[34m-------"d2c(27)"[37m";if ~CLONL_transfer(janus||point||'/'||point'.outgoing-bak',point'.outgoing-bak') then;say 'Transfer fehlgeschlagen!';else;say 'Transfer erfolgreich!';call pmenu;pufferup:;say d2c(12)||d2c(27)"[34m  .---------------------- ---  --  -"d2c(27)"[37m_/"d2c(27)"[31m\"d2c(27)"[37m_____/"d2c(27)"[31m\"d2c(27)"[37m_______ _/"d2c(27)"[31m\"d2c(27)"[37m___/"d2c(27)"[31m\"d2c(27)"[37m_____"d2c(27)"[34m- -- --.";say d2c(27)"[34m  ¦  "d2c(27)"[32m...   ...  ..   ..  ...   ...  "d2c(27)"[37m\"d2c(27)"[31m____  "d2c(27)"[37m\  "d2c(27)"[31m_   "d2c(27)"[37m("d2c(27)"[31m__)"d2c(27)"[37m\  "d2c(27)"[31m_ "d2c(27)"[37m\"d2c(27)"[31m_______\      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m:: :: :: :: ::   :: :: :: ::..   "d2c(27)"[37m/  "d2c(27)"[31m___"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/  "d2c(27)"[31m\"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/   "d2c(27)"[31m\"d2c(27)"[37m\"d2c(27)"[31m/      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m·:.:· :: :: ·:.. :: :: :: ·:.. "d2c(27)"[37m_/   "d2c(27)"[31m/"d2c(27)"[37m_/  "d2c(27)"[31m/  "d2c(27)"[37m_/  _/  "d2c(27)"[31m/  "d2c(27)"[37m_/     "d2c(27)"[31m\       "d2c(27)"[34m¦";say d2c(27)"[34m  ¦                                "d2c(27)"[37m\ "d2c(27)"[31m__/ "d2c(27)"[37m\ "d2c(27)"[31m_____"d2c(27)"[37m\ "d2c(27)"[31m__"d2c(27)"[37m\  "d2c(27)"[31m/___"d2c(27)"[37m\ "d2c(27)"[31m_____/-[sC!]-"d2c(27)"[34m¦";say d2c(27)"[34m  `---"d2c(27)"[32m[ AHT-DH-Online-Point ]"d2c(27)"[34m-------"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m--"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m------------'";say d2c(27)"[13;12H"d2c(27)"[33m        empfange Puffer von Point.. : "d2c(27)"[32m"||point||d2c(27)"[37m";say d2c(27)"[19;3H"d2c(27)"[34m------------------------------"d2c(27)"[31m["d2c(27)"[33;1m \>^</"d2c(27)"[0;33m (c) by M.Schulz & D.Hartstein "d2c(27)"[31m]"d2c(27)"[34m-------"d2c(27)"[37m";file=CLONL_Receive(port);if file ~='' then;do;newfile=spool||point||'.'compress(time(),':');address command;'rename >NIL: '||file||' 'newfile;address;end;address command;'run >NIL: CONNECTLINE:Modules/CLMSortin';address;say d2c(12)||d2c(27)"[34m  .---------------------- ---  --  -"d2c(27)"[37m_/"d2c(27)"[31m\"d2c(27)"[37m_____/"d2c(27)"[31m\"d2c(27)"[37m_______ _/"d2c(27)"[31m\"d2c(27)"[37m___/"d2c(27)"[31m\"d2c(27)"[37m_____"d2c(27)"[34m- -- --.";say d2c(27)"[34m  ¦  "d2c(27)"[32m...   ...  ..   ..  ...   ...  "d2c(27)"[37m\"d2c(27)"[31m____  "d2c(27)"[37m\  "d2c(27)"[31m_   "d2c(27)"[37m("d2c(27)"[31m__)"d2c(27)"[37m\  "d2c(27)"[31m_ "d2c(27)"[37m\"d2c(27)"[31m_______\      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m:: :: :: :: ::   :: :: :: ::..   "d2c(27)"[37m/  "d2c(27)"[31m___"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/  "d2c(27)"[31m\"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/   "d2c(27)"[31m\"d2c(27)"[37m\"d2c(27)"[31m/      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m·:.:· :: :: ·:.. :: :: :: ·:.. "d2c(27)"[37m_/   "d2c(27)"[31m/"d2c(27)"[37m_/  "d2c(27)"[31m/  "d2c(27)"[37m_/  _/  "d2c(27)"[31m/  "d2c(27)"[37m_/     "d2c(27)"[31m\       "d2c(27)"[34m¦";say d2c(27)"[34m  ¦                                "d2c(27)"[37m\ "d2c(27)"[31m__/ "d2c(27)"[37m\ "d2c(27)"[31m_____"d2c(27)"[37m\ "d2c(27)"[31m__"d2c(27)"[37m\  "d2c(27)"[31m/___"d2c(27)"[37m\ "d2c(27)"[31m_____/-[sC!]-"d2c(27)"[34m¦";say d2c(27)"[34m  `---"d2c(27)"[32m[ AHT-DH-Online-Point ]"d2c(27)"[34m-------"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m--"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m------------'";say d2c(27)"[13;12H"d2c(27)"[33m  Dein Puffer wird sobald wie moeglich einsortiert...."d2c(27)"[37m";say d2c(27)"[19;3H"d2c(27)"[34m------------------------------"d2c(27)"[31m["d2c(27)"[33;1m \>^</"d2c(27)"[0;33m (c) by M.Schulz & D.Hartstein "d2c(27)"[31m]"d2c(27)"[34m-------"d2c(27)"[37m";call CLONL_GotoXY(29,15);call clonl_wait();call pmenu;pdown:;lenpre=0;lenbre=0;lenpm=0;lenoutpre=0;if open('FILE0',janus||point||'/'||point||'.PRE') then;do;call seek('FILE0',0,'E');lenpre=result;CALL close ('FILE0');end;if open('FILE1',janus||point||'/'||point||'.MBX') then;do;call seek('FILE1',0,'E');lenbre=result;CALL close ('FILE1');end;if open('FILE2',janus||point||'/'||point||'.MBP') then;do;call seek('FILE2',0,'E');lenpm=result;CALL close ('FILE2');end;if open('FILE3',janus||point||'/'Out.pre) then;do;call seek('FILE3',0,'E');lenoutpre=result;CALL close ('FILE3');end;if exists(janus||point||'/Out.pre') then;do;call outpre;end;else;call pufferdown;end;pufferdown:;say d2c(12)||d2c(27)"[34m  .---------------------- ---  --  -"d2c(27)"[37m_/"d2c(27)"[31m\"d2c(27)"[37m_____/"d2c(27)"[31m\"d2c(27)"[37m_______ _/"d2c(27)"[31m\"d2c(27)"[37m___/"d2c(27)"[31m\"d2c(27)"[37m_____"d2c(27)"[34m- -- --.";say d2c(27)"[34m  ¦  "d2c(27)"[32m...   ...  ..   ..  ...   ...  "d2c(27)"[37m\"d2c(27)"[31m____  "d2c(27)"[37m\  "d2c(27)"[31m_   "d2c(27)"[37m("d2c(27)"[31m__)"d2c(27)"[37m\  "d2c(27)"[31m_ "d2c(27)"[37m\"d2c(27)"[31m_______\      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m:: :: :: :: ::   :: :: :: ::..   "d2c(27)"[37m/  "d2c(27)"[31m___"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/  "d2c(27)"[31m\"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/   "d2c(27)"[31m\"d2c(27)"[37m\"d2c(27)"[31m/      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m·:.:· :: :: ·:.. :: :: :: ·:.. "d2c(27)"[37m_/   "d2c(27)"[31m/"d2c(27)"[37m_/  "d2c(27)"[31m/  "d2c(27)"[37m_/  _/  "d2c(27)"[31m/  "d2c(27)"[37m_/     "d2c(27)"[31m\       "d2c(27)"[34m¦";say d2c(27)"[34m  ¦                                "d2c(27)"[37m\ "d2c(27)"[31m__/ "d2c(27)"[37m\ "d2c(27)"[31m_____"d2c(27)"[37m\ "d2c(27)"[31m__"d2c(27)"[37m\  "d2c(27)"[31m/___"d2c(27)"[37m\ "d2c(27)"[31m_____/-[sC!]-"d2c(27)"[34m¦";say d2c(27)"[34m  `---"d2c(27)"[32m[ AHT-DH-Online-Point ]"d2c(27)"[34m-------"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m--"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m------------'";say d2c(27)"[9;12H"d2c(27)"[33m     Ungepackte Brett Mails..... : ........ Bytes";say d2c(27)"[11;12H"d2c(27)"[33m     Ungepackte private Mails... : ........ Bytes";say d2c(27)"[13;12H"d2c(27)"[33m     Gepackter Pointpuffer...... : ........ Bytes";say d2c(27)"[9;47H"d2c(27)"[34m"||lenbre||d2c(27)"[37m";say d2c(27)"[11;47H"d2c(27)"[34m"||lenpm||d2c(27)"[37m";say d2c(27)"[13;47H"d2c(27)"[34m"||lenpre||d2c(27)"[37m";say d2c(27)"[16;12H"d2c(27)"[33mMoechtest Du die Nachrichten jetzt Downloaden "d2c(27)"[37m";say d2c(27)"[19;3H"d2c(27)"[34m------------------------------"d2c(27)"[31m["d2c(27)"[33;1m \>^</"d2c(27)"[0;33m (c) by M.Schulz & D.Hartstein "d2c(27)"[31m]"d2c(27)"[34m-------"d2c(27)"[37m";call pdja;pdja:;taste=''||d2c(0);call CLONL_GotoXY(59,16);call clonl_bluemode();call CLONL_shortmenu(Ja,Nein);taste=result;call clonl_normal();if taste='-1' then call bye;if taste='J' then call wirdown;if taste='j' then call wirdown;if taste='N' then call pmenu;if taste='n' then call pmenu;call pdja;outpre:;say d2c(12)||d2c(27)"[34m  .---------------------- ---  --  -"d2c(27)"[37m_/"d2c(27)"[31m\"d2c(27)"[37m_____/"d2c(27)"[31m\"d2c(27)"[37m_______ _/"d2c(27)"[31m\"d2c(27)"[37m___/"d2c(27)"[31m\"d2c(27)"[37m_____"d2c(27)"[34m- -- --.";say d2c(27)"[34m  ¦  "d2c(27)"[32m...   ...  ..   ..  ...   ...  "d2c(27)"[37m\"d2c(27)"[31m____  "d2c(27)"[37m\  "d2c(27)"[31m_   "d2c(27)"[37m("d2c(27)"[31m__)"d2c(27)"[37m\  "d2c(27)"[31m_ "d2c(27)"[37m\"d2c(27)"[31m_______\      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m:: :: :: :: ::   :: :: :: ::..   "d2c(27)"[37m/  "d2c(27)"[31m___"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/  "d2c(27)"[31m\"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/   "d2c(27)"[31m\"d2c(27)"[37m\"d2c(27)"[31m/      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m·:.:· :: :: ·:.. :: :: :: ·:.. "d2c(27)"[37m_/   "d2c(27)"[31m/"d2c(27)"[37m_/  "d2c(27)"[31m/  "d2c(27)"[37m_/  _/  "d2c(27)"[31m/  "d2c(27)"[37m_/     "d2c(27)"[31m\       "d2c(27)"[34m¦";say d2c(27)"[34m  ¦                                "d2c(27)"[37m\ "d2c(27)"[31m__/ "d2c(27)"[37m\ "d2c(27)"[31m_____"d2c(27)"[37m\ "d2c(27)"[31m__"d2c(27)"[37m\  "d2c(27)"[31m/___"d2c(27)"[37m\ "d2c(27)"[31m_____/-[sC!]-"d2c(27)"[34m¦";say d2c(27)"[34m  `---"d2c(27)"[32m[ AHT-DH-Online-Point ]"d2c(27)"[34m-------"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m--"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m------------'";say d2c(27)"[23;3H"d2c(27)"[34m------------------------------"d2c(27)"[31m["d2c(27)"[33;1m \>^</"d2c(27)"[0;33m (c) by M.Schulz & D.Hartstein "d2c(27)"[31m]"d2c(27)"[34m-------"d2c(27)"[37m";say d2c(27)"[9;3H"d2c(27)"[33m Es liegt es noch ein Puffer vom Pointtool vor, der wahrscheinlich nicht";say d2c(27)"[11;3H"d2c(27)"[33m nicht bis zum Ende uebertragen wurde.";say d2c(27)"[13;3H"d2c(27)"[33m ";say d2c(27)"[15;3H"d2c(27)"[33m Dieser Puffer ist ...........  Bytes gross.";say d2c(27)"[15;21H"d2c(27)"[31m "||lenoutpre||d2c(27);say d2c(27)"[17;3H"d2c(27)"[33m ";say d2c(27)"[19;3H"d2c(27)"[33m Moechtest du diesen Puffer downloaden oder diesen loeschen und den";say d2c(27)"[21;3H"d2c(27)"[33m aktuellen Puffer, der oben angezeigt wurde, downloaden?";call CLONL_GotoXY(4,25);call clonl_bluemode();call CLONL_shortmenu(Download,Loeschen);taste=result;call clonl_normal();if taste='-1' then call bye;if taste='D' then call wirdown2;if taste='d' then call wirdown2;if taste='L' then call loeout;if taste='l' then call loeout;wirdown2:;if ~CLONL_transfer(janus||point||'/Out.pre','Out.PRE') then;call pdown;else;address command;'delete >NIL: '||janus||point'/Out.pre';call pdown;loeout:;address command;'delete >NIL: 'janus||point||'/Out.pre';call pdown;wirdown:;say d2c(12)||d2c(27)"[34m  .---------------------- ---  --  -"d2c(27)"[37m_/"d2c(27)"[31m\"d2c(27)"[37m_____/"d2c(27)"[31m\"d2c(27)"[37m_______ _/"d2c(27)"[31m\"d2c(27)"[37m___/"d2c(27)"[31m\"d2c(27)"[37m_____"d2c(27)"[34m- -- --.";say d2c(27)"[34m  ¦  "d2c(27)"[32m...   ...  ..   ..  ...   ...  "d2c(27)"[37m\"d2c(27)"[31m____  "d2c(27)"[37m\  "d2c(27)"[31m_   "d2c(27)"[37m("d2c(27)"[31m__)"d2c(27)"[37m\  "d2c(27)"[31m_ "d2c(27)"[37m\"d2c(27)"[31m_______\      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m:: :: :: :: ::   :: :: :: ::..   "d2c(27)"[37m/  "d2c(27)"[31m___"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/  "d2c(27)"[31m\"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/   "d2c(27)"[31m\"d2c(27)"[37m\"d2c(27)"[31m/      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m·:.:· :: :: ·:.. :: :: :: ·:.. "d2c(27)"[37m_/   "d2c(27)"[31m/"d2c(27)"[37m_/  "d2c(27)"[31m/  "d2c(27)"[37m_/  _/  "d2c(27)"[31m/  "d2c(27)"[37m_/     "d2c(27)"[31m\       "d2c(27)"[34m¦";say d2c(27)"[34m  ¦                                "d2c(27)"[37m\ "d2c(27)"[31m__/ "d2c(27)"[37m\ "d2c(27)"[31m_____"d2c(27)"[37m\ "d2c(27)"[31m__"d2c(27)"[37m\  "d2c(27)"[31m/___"d2c(27)"[37m\ "d2c(27)"[31m_____/-[sC!]-"d2c(27)"[34m¦";say d2c(27)"[34m  `---"d2c(27)"[32m[ AHT-DH-Online-Point ]"d2c(27)"[34m-------"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m--"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m------------'";say d2c(27)"[13;12H"d2c(27)"[33m           Moment, packe ungepackte Daten.....  "d2c(27)"[37m";say d2c(27)"[19;3H"d2c(27)"[34m------------------------------"d2c(27)"[31m["d2c(27)"[33;1m \>^</"d2c(27)"[0;33m (c) by M.Schulz & D.Hartstein "d2c(27)"[31m]"d2c(27)"[34m-------"d2c(27)"[37m";address command;'ConnectLine:c/batch '||point||' >NIL:';address;say d2c(12)||d2c(27)"[34m  .---------------------- ---  --  -"d2c(27)"[37m_/"d2c(27)"[31m\"d2c(27)"[37m_____/"d2c(27)"[31m\"d2c(27)"[37m_______ _/"d2c(27)"[31m\"d2c(27)"[37m___/"d2c(27)"[31m\"d2c(27)"[37m_____"d2c(27)"[34m- -- --.";say d2c(27)"[34m  ¦  "d2c(27)"[32m...   ...  ..   ..  ...   ...  "d2c(27)"[37m\"d2c(27)"[31m____  "d2c(27)"[37m\  "d2c(27)"[31m_   "d2c(27)"[37m("d2c(27)"[31m__)"d2c(27)"[37m\  "d2c(27)"[31m_ "d2c(27)"[37m\"d2c(27)"[31m_______\      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m:: :: :: :: ::   :: :: :: ::..   "d2c(27)"[37m/  "d2c(27)"[31m___"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/  "d2c(27)"[31m\"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/   "d2c(27)"[31m\"d2c(27)"[37m\"d2c(27)"[31m/      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m·:.:· :: :: ·:.. :: :: :: ·:.. "d2c(27)"[37m_/   "d2c(27)"[31m/"d2c(27)"[37m_/  "d2c(27)"[31m/  "d2c(27)"[37m_/  _/  "d2c(27)"[31m/  "d2c(27)"[37m_/     "d2c(27)"[31m\       "d2c(27)"[34m¦";say d2c(27)"[34m  ¦                                "d2c(27)"[37m\ "d2c(27)"[31m__/ "d2c(27)"[37m\ "d2c(27)"[31m_____"d2c(27)"[37m\ "d2c(27)"[31m__"d2c(27)"[37m\  "d2c(27)"[31m/___"d2c(27)"[37m\ "d2c(27)"[31m_____/-[sC!]-"d2c(27)"[34m¦";say d2c(27)"[34m  `---"d2c(27)"[32m[ AHT-DH-Online-Point ]"d2c(27)"[34m-------"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m--"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m------------'";say d2c(27)"[13;12H"d2c(27)"[33m          sende Puffer fuer Point.. : "d2c(27)"[32m"||point||d2c(27)"[37m";say d2c(27)"[19;3H"d2c(27)"[34m------------------------------"d2c(27)"[31m["d2c(27)"[33;1m \>^</"d2c(27)"[0;33m (c) by M.Schulz & D.Hartstein "d2c(27)"[31m]"d2c(27)"[34m-------"d2c(27)"[37m";address command;'rename >NIL: '||janus||point||'/'||point||'.pre to 'janus||point||'/Out.pre';if ~CLONL_transfer(janus||point||'/Out.pre',Out.PRE) then;do;call pdown;end;else;call wirdown5;end;wirdown5:;address command;'delete >NIL: '||janus||point||'/'||point||'.outgoing-bak';'rename >NIL: '||janus||point||'/out.pre to '||janus||point||'/'||point||'.outgoing-bak';address;call start;pufferlo:;lenpre=0;lenbre=0;lenpm=0;if open('FILE0',janus||point||'/'||point||'.PRE') then;do;call seek('FILE0',0,'E');lenpre=result;CALL close ('FILE0');end;if open('FILE1',janus||point||'/'||point||'.MBX') then;do;call seek('FILE1',0,'E');lenbre=result;CALL close ('FILE1');end;if open('FILE2',janus||point||'/'||point||'.MBP') then;do;call seek('FILE2',0,'E');lenpm=result;CALL close ('FILE2');end;say d2c(12)||d2c(27)"[34m  .---------------------- ---  --  -"d2c(27)"[37m_/"d2c(27)"[31m\"d2c(27)"[37m_____/"d2c(27)"[31m\"d2c(27)"[37m_______ _/"d2c(27)"[31m\"d2c(27)"[37m___/"d2c(27)"[31m\"d2c(27)"[37m_____"d2c(27)"[34m- -- --.";say d2c(27)"[34m  ¦  "d2c(27)"[32m...   ...  ..   ..  ...   ...  "d2c(27)"[37m\"d2c(27)"[31m____  "d2c(27)"[37m\  "d2c(27)"[31m_   "d2c(27)"[37m("d2c(27)"[31m__)"d2c(27)"[37m\  "d2c(27)"[31m_ "d2c(27)"[37m\"d2c(27)"[31m_______\      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m:: :: :: :: ::   :: :: :: ::..   "d2c(27)"[37m/  "d2c(27)"[31m___"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/  "d2c(27)"[31m\"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/   "d2c(27)"[31m\"d2c(27)"[37m\"d2c(27)"[31m/      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m·:.:· :: :: ·:.. :: :: :: ·:.. "d2c(27)"[37m_/   "d2c(27)"[31m/"d2c(27)"[37m_/  "d2c(27)"[31m/  "d2c(27)"[37m_/  _/  "d2c(27)"[31m/  "d2c(27)"[37m_/     "d2c(27)"[31m\       "d2c(27)"[34m¦";say d2c(27)"[34m  ¦                                "d2c(27)"[37m\ "d2c(27)"[31m__/ "d2c(27)"[37m\ "d2c(27)"[31m_____"d2c(27)"[37m\ "d2c(27)"[31m__"d2c(27)"[37m\  "d2c(27)"[31m/___"d2c(27)"[37m\ "d2c(27)"[31m_____/-[sC!]-"d2c(27)"[34m¦";say d2c(27)"[34m  `---"d2c(27)"[32m[ AHT-DH-Online-Point ]"d2c(27)"[34m-------"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m--"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m------------'";say d2c(27)"[9;12H"d2c(27)"[33m     Ungepackte Brett Mails..... : ........ Bytes";say d2c(27)"[11;12H"d2c(27)"[33m     Ungepackte private Mails... : ........ Bytes";say d2c(27)"[13;12H"d2c(27)"[33m     Gepackter Pointpuffer...... : ........ Bytes";say d2c(27)"[9;47H"d2c(27)"[34m"||lenbre||d2c(27)"[37m";say d2c(27)"[11;47H"d2c(27)"[34m"||lenpm||d2c(27)"[37m";say d2c(27)"[13;47H"d2c(27)"[34m"||lenpre||d2c(27)"[37m";say d2c(27)"[16;9H"d2c(27)"[33mMoechtest Du die Nachrichten jetzt wirklich loeschen"d2c(27)"[37m";say d2c(27)"[19;3H"d2c(27)"[34m------------------------------"d2c(27)"[31m["d2c(27)"[33;1m \>^</"d2c(27)"[0;33m (c) by M.Schulz & D.Hartstein "d2c(27)"[31m]"d2c(27)"[34m-------"d2c(27)"[37m";call pdjalo;pdjalo:;taste=''||d2c(0);call CLONL_GotoXY(62,16);call clonl_bluemode();call CLONL_shortmenu(Ja,Nein);taste=result;call clonl_normal();if taste='-1' then call bye;if taste='J' then call wirlo;if taste='j' then call wirlo;if taste='N' then call pmenu;if taste='n' then call pmenu;call pdjalo;wirlo:;say d2c(12)||d2c(27)"[34m  .---------------------- ---  --  -"d2c(27)"[37m_/"d2c(27)"[31m\"d2c(27)"[37m_____/"d2c(27)"[31m\"d2c(27)"[37m_______ _/"d2c(27)"[31m\"d2c(27)"[37m___/"d2c(27)"[31m\"d2c(27)"[37m_____"d2c(27)"[34m- -- --.";say d2c(27)"[34m  ¦  "d2c(27)"[32m...   ...  ..   ..  ...   ...  "d2c(27)"[37m\"d2c(27)"[31m____  "d2c(27)"[37m\  "d2c(27)"[31m_   "d2c(27)"[37m("d2c(27)"[31m__)"d2c(27)"[37m\  "d2c(27)"[31m_ "d2c(27)"[37m\"d2c(27)"[31m_______\      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m:: :: :: :: ::   :: :: :: ::..   "d2c(27)"[37m/  "d2c(27)"[31m___"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/  "d2c(27)"[31m\"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/   "d2c(27)"[31m\"d2c(27)"[37m\"d2c(27)"[31m/      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m·:.:· :: :: ·:.. :: :: :: ·:.. "d2c(27)"[37m_/   "d2c(27)"[31m/"d2c(27)"[37m_/  "d2c(27)"[31m/  "d2c(27)"[37m_/  _/  "d2c(27)"[31m/  "d2c(27)"[37m_/     "d2c(27)"[31m\       "d2c(27)"[34m¦";say d2c(27)"[34m  ¦                                "d2c(27)"[37m\ "d2c(27)"[31m__/ "d2c(27)"[37m\ "d2c(27)"[31m_____"d2c(27)"[37m\ "d2c(27)"[31m__"d2c(27)"[37m\  "d2c(27)"[31m/___"d2c(27)"[37m\ "d2c(27)"[31m_____/-[sC!]-"d2c(27)"[34m¦";say d2c(27)"[34m  `---"d2c(27)"[32m[ AHT-DH-Online-Point ]"d2c(27)"[34m-------"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m--"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m------------'";say d2c(27)"[13;12H"d2c(27)"[33m           Moment, packe ungepackte Daten.....  "d2c(27)"[37m";say d2c(27)"[19;3H"d2c(27)"[34m------------------------------"d2c(27)"[31m["d2c(27)"[33;1m \>^</"d2c(27)"[0;33m (c) by M.Schulz & D.Hartstein "d2c(27)"[31m]"d2c(27)"[34m-------"d2c(27)"[37m";address command;'ConnectLine:c/batch '||point||' >NIL:';address;say d2c(12)||d2c(27)"[34m  .---------------------- ---  --  -"d2c(27)"[37m_/"d2c(27)"[31m\"d2c(27)"[37m_____/"d2c(27)"[31m\"d2c(27)"[37m_______ _/"d2c(27)"[31m\"d2c(27)"[37m___/"d2c(27)"[31m\"d2c(27)"[37m_____"d2c(27)"[34m- -- --.";say d2c(27)"[34m  ¦  "d2c(27)"[32m...   ...  ..   ..  ...   ...  "d2c(27)"[37m\"d2c(27)"[31m____  "d2c(27)"[37m\  "d2c(27)"[31m_   "d2c(27)"[37m("d2c(27)"[31m__)"d2c(27)"[37m\  "d2c(27)"[31m_ "d2c(27)"[37m\"d2c(27)"[31m_______\      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m:: :: :: :: ::   :: :: :: ::..   "d2c(27)"[37m/  "d2c(27)"[31m___"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/  "d2c(27)"[31m\"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/   "d2c(27)"[31m\"d2c(27)"[37m\"d2c(27)"[31m/      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m·:.:· :: :: ·:.. :: :: :: ·:.. "d2c(27)"[37m_/   "d2c(27)"[31m/"d2c(27)"[37m_/  "d2c(27)"[31m/  "d2c(27)"[37m_/  _/  "d2c(27)"[31m/  "d2c(27)"[37m_/     "d2c(27)"[31m\       "d2c(27)"[34m¦";say d2c(27)"[34m  ¦                                "d2c(27)"[37m\ "d2c(27)"[31m__/ "d2c(27)"[37m\ "d2c(27)"[31m_____"d2c(27)"[37m\ "d2c(27)"[31m__"d2c(27)"[37m\  "d2c(27)"[31m/___"d2c(27)"[37m\ "d2c(27)"[31m_____/-[sC!]-"d2c(27)"[34m¦";say d2c(27)"[34m  `---"d2c(27)"[32m[ AHT-DH-Online-Point ]"d2c(27)"[34m-------"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m--"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m------------'";say d2c(27)"[13;12H"d2c(27)"[33m         lege Kopie fuer Point "d2c(27)"[32m"||point||d2c(27)"[33m an"d2c(27)"[37m";say d2c(27)"[19;3H"d2c(27)"[34m------------------------------"d2c(27)"[31m["d2c(27)"[33;1m \>^</"d2c(27)"[0;33m (c) by M.Schulz & D.Hartstein "d2c(27)"[31m]"d2c(27)"[34m-------"d2c(27)"[37m";address command;address command;'delete >NIL: 'janus||point||'/'||point||'.outgoing-bak';'rename >NIL: 'janus||point||'/'||point||'.pre to 'janus||point||'/'||point||'.outgoing-bak';address;call pmenu;bye:;say d2c(12);exit;bye2:;say d2c(30);exit;syntax:;halt:;say d2c(12);exit;bye1:;say d2c(12)||d2c(27)"[34m  .---------------------- ---  --  -"d2c(27)"[37m_/"d2c(27)"[31m\"d2c(27)"[37m_____/"d2c(27)"[31m\"d2c(27)"[37m_______ _/"d2c(27)"[31m\"d2c(27)"[37m___/"d2c(27)"[31m\"d2c(27)"[37m_____"d2c(27)"[34m- -- --.";say d2c(27)"[34m  ¦  "d2c(27)"[32m...   ...  ..   ..  ...   ...  "d2c(27)"[37m\"d2c(27)"[31m____  "d2c(27)"[37m\  "d2c(27)"[31m_   "d2c(27)"[37m("d2c(27)"[31m__)"d2c(27)"[37m\  "d2c(27)"[31m_ "d2c(27)"[37m\"d2c(27)"[31m_______\      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m:: :: :: :: ::   :: :: :: ::..   "d2c(27)"[37m/  "d2c(27)"[31m___"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/  "d2c(27)"[31m\"d2c(27)"[37m/  "d2c(27)"[31m/   "d2c(27)"[37m/   "d2c(27)"[31m\"d2c(27)"[37m\"d2c(27)"[31m/      "d2c(27)"[34m¦";say d2c(27)"[34m  ¦ "d2c(27)"[32m·:.:· :: :: ·:.. :: :: :: ·:.. "d2c(27)"[37m_/   "d2c(27)"[31m/"d2c(27)"[37m_/  "d2c(27)"[31m/  "d2c(27)"[37m_/  _/  "d2c(27)"[31m/  "d2c(27)"[37m_/     "d2c(27)"[31m\       "d2c(27)"[34m¦";say d2c(27)"[34m  ¦                                "d2c(27)"[37m\ "d2c(27)"[31m__/ "d2c(27)"[37m\ "d2c(27)"[31m_____"d2c(27)"[37m\ "d2c(27)"[31m__"d2c(27)"[37m\  "d2c(27)"[31m/___"d2c(27)"[37m\ "d2c(27)"[31m_____/-[sC!]-"d2c(27)"[34m¦";say d2c(27)"[34m  `---"d2c(27)"[32m[ AHT-DH-Online-Point ]"d2c(27)"[34m-------"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m--"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m-----"d2c(27)"[37m\"d2c(27)"[31m/"d2c(27)"[34m------------'";say d2c(27)"[13;12H"d2c(27)"[31m             FUNKTION NOCH NICHT VERFUEGBAR ! ";say d2c(27)"[19;3H"d2c(27)"[34m------------------------------"d2c(27)"[31m["d2c(27)"[33;1m \>^</"d2c(27)"[0;33m (c) by M.Schulz & D.Hartstein "d2c(27)"[31m]"d2c(27)"[34m-------"d2c(27)"[37m";CALL CLONL_WAIT();call start